home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 19 / AMIGAplus Sonderheft 19 (1999)(ICP)(DE)[!].iso / Demoversionen / Anwendungen / Net_Connect / NC_2.1 / AmIRC / Rexx / trans.amirx < prev   
Text File  |  1999-03-08  |  2KB  |  71 lines
  1. /*
  2.    $VER:English/German-Translator 1.4ß (30.05.98) C.Birchinger (Joker)
  3. */
  4.  
  5. maxhits=5      /* Default max.hits */
  6. boldtxt=1      /* Use bold */
  7.  
  8. /* --------------------------------------------------------------*/
  9.  
  10. parse arg argument
  11. revarg=reverse(argument)
  12. parse var revarg hits word
  13. hits=reverse(hits);word=reverse(word)
  14. if datatype(hits)~='NUM' then do
  15.     word=word||hits
  16.     hits=maxhits
  17. end    
  18.  
  19. if word='' then do
  20.     "echo P="d2c(27)"b«e/g» Usage: trans <words> [<max.hits>]"
  21.     exit
  22. end 
  23. else hits=strip(hits);word=strip(word)
  24. findword=translate(word,'+',' ')
  25.  
  26. "echo P="d2c(27)"b«e/g» Translating '"||d2c(2)||word||d2c(2)||"' (Max."hits")"
  27. if open(x,'tcp:131.159.72.7/80') then do
  28.     writeln(x,'GET /cgi-bin/dict-search?search='findword'&header=%3F%BF&links=hide&mirrors=%3F%BF')
  29.     do until index(line,"search result")>0
  30.         line=readln(x)
  31.         if eof(x) then do
  32.             "echo P="d2c(27)"b«e/g» Search for '"||d2c(2)||word||d2c(2)||"' produced no results."
  33.             exit
  34.         end
  35.     end
  36.     parse var line '<STRONG>'foundhits dummy
  37.     if foundhits=1 then "echo P="d2c(27)"b«e/g» "foundhits" search result for '"||d2c(2)||word||d2c(2)||"'"
  38.     else "echo P="d2c(27)"b«e/g» "foundhits" search results for '"||d2c(2)||word||d2c(2)||"'"
  39.   line=readln(x);line=readln(x)
  40.     if foundhits>hits then do
  41.         foundhits=hits
  42.     end
  43.     do i=1 to foundhits
  44.         line=strip(readln(x))
  45.         call htmlout(line)
  46.     end
  47.     call close(x)
  48. end
  49. else
  50.     "echo P="d2c(27)"b«e/g» Error: 'http://www.leo.org/cgi-bin/dict-search' is down or TCP: not mounted."
  51.     exit
  52. end
  53. exit
  54.  
  55. htmlout:
  56. output=arg(1)
  57.  
  58. parse var output dummy 'VALIGN="TOP">' lines '</TD><TD VALIGN="TOP">' linee
  59. output=lines||'-'||linee
  60. do until (index(output,'<B>')=0)
  61.     cut=index(output,'<B>')
  62.     if cut~=0 then output=insert(d2c(2),delstr(output,cut,3),cut-1,1)
  63.     cut=index(output,'</B>')
  64.     if cut~=0 then output=insert(d2c(2),delstr(output,cut,4),cut-1,1)
  65. end
  66.  
  67. if boldtxt=0 then 'echo P='d2c(27)'b«e/g»' compress(output,d2c(2))
  68. else 'echo P='d2c(27)'b«e/g»' output
  69.  
  70. return
  71.